home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPCP01.ZIP / CW-REG / CW-REG.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1995-09-03  |  14KB  |  590 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     Integer  INTEGER017
  36.     Integer  INTEGER018
  37.     Integer  INTEGER019
  38.     Integer  INTEGER020
  39.     Integer  INTEGER021
  40.     Integer  INTEGER022
  41.     Integer  INTEGER023
  42.     Integer  INTEGER024
  43.     Integer  INTEGER025
  44.     String   STRING001
  45.     String   STRING002
  46.     String   STRING003
  47.     String   STRING004
  48.     String   STRING005
  49.     String   STRING006
  50.     String   STRING007
  51.     String   STRING008
  52.     String   STRING009
  53.     String   STRING010
  54.     String   STRING011
  55.     String   STRING012
  56.     String   STRING013
  57.     String   STRING014
  58.     String   STRING015
  59.     String   STRING016
  60.     String   STRING017
  61.     String   STRING018
  62.     String   STRING019
  63.     String   STRING020
  64.     String   STRING021
  65.     String   STRING022
  66.     String   STRING023
  67.     String   STRING024
  68.     String   STRING025
  69.     String   STRING026
  70.     String   STRING027
  71.     String   STRING028
  72.     String   STRING029
  73.     Int      INT001
  74.     Declare  Procedure PROC005(Integer INTEGER026)
  75.     Declare  Procedure PROC006(Integer INTEGER027)
  76.     Declare  Procedure PROC007()
  77.  
  78. ;------------------------------------------------------------------------------
  79.  
  80.     :LABEL001
  81.     StartDisp 1
  82.     INT001 = 1
  83.     :LABEL002
  84.     Cls
  85.     PrintLn "@CLS@@X07"
  86.     PrintLn " "
  87.     PrintLn "              @X04 @X07"
  88.     PrintLn "              @X04 @X07       @X04░▒▓   ███ ░▒▓████ ░▒▓   ██ ░▒   ██@X07"
  89.     PrintLn "@X04             @X07 @X04        ▒▓██ ████ ▒▓      ▒▓██  ██ ▒▓   ██@X07"
  90.     PrintLn "@X04             @X07 @X04        ▓█ ███ ██ ▓███    ▓█ ██ ██ ▓█   ██@X07"
  91.     PrintLn "@X04             @X07  @X04       ██  ▀  ██ ██▄▄▄▄▄ ██  ████ ██   ██@X07"
  92.     PrintLn "@X04             @X07 @X04        ▀▀     ▀▀ ▀▀▀▀▀▀▀ ▀▀   ▀▀▀  ▀▀▀▀▀@X07"
  93.     PrintLn "              @X0F @X07  @X0F· ·─@X0C─@X04──────────────────────────────────@X0C─@X0F─· ·@X07"
  94.     PrintLn "@X04             @X07 @X04   @X07               @X08              @X07"
  95.     PrintLn "@X0F             @X07 @X04 @X0F       @X07   @X0F   @X08manually input bbs name   @X07"
  96.     PrintLn "@X04             @X07  @X04       @X07   @X04@X08use pcboard.dat file (faster)        @X07 @X08               @X07"
  97.     PrintLn "@X04             @X07 @X04 @X07      @X08 @X07   @X08                             @X07"
  98.     PrintLn "              @X04 @X07               @X08 view my bbs ad :) @X08              @X07"
  99.     PrintLn "@X04                                     @X08exit"
  100.     PrintLn " "
  101.     PrintLn "             @X07  @X04  @X0F· ·─@X0C─@X04──────────────────────────────────@X0C─@X0F─· ·@X07"
  102.     PrintLn "@X04             @X07 @X0F @X04  @X07               @X0F /  To Select@X07"
  103.     PrintLn " "
  104.     PrintLn "@X0F              @X07"
  105.     AnsiPos 30, 1
  106.     Print "CW's PPE Registration"
  107.     PROC005(INT001)
  108.     While (1) Do
  109.         STRING002 = Inkey()
  110.         If (STRING002 <> "") Then
  111.             If (STRING002 == "DOWN") Then
  112.                 PROC006(INT001)
  113.                 INT001 = INT001 + 1
  114.                 If (INT001 == 3) INT001 = 4
  115.                 If (INT001 == 6) INT001 = 1
  116.                 PROC005(INT001)
  117.                 Continue
  118.             Endif
  119.             If (STRING002 == "UP") Then
  120.                 PROC006(INT001)
  121.                 INT001 = INT001 - 1
  122.                 If (INT001 == 3) INT001 = 2
  123.                 If (INT001 == 0) INT001 = 5
  124.                 PROC005(INT001)
  125.                 Continue
  126.             Endif
  127.             If (STRING002 == Chr(13)) Then
  128.                 If (INT001 == 1) Then
  129.                     InputStr "@X07Please input your BBS Name now@X0F: @X07_", STRING027, 0, 30, "!#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ÄÖÜabcdefghijklmnopqrstuvwxyz{|}~ÇüéâäàåçêëèïîìÄÅÉæÆôöòûùÿÖÜ¢£¥₧ƒáíóúñѪº¿⌐┤╡╣╖╕╣║╗╝╜╛┐└┴┬├─┼╞╟╚╔╩╦╠═╬╧╨╤╥╙╘╒╓╫╪┘┌█▄▌▐▀αßΓπΣσµτΦΘΩδ∞φε∩≡±≥≤⌠⌡÷≈°∙·√ⁿ²▄ ", 4096
  130.                     PrintLn ""
  131.                     InputStr "@X07Are you sure@X0F? @X08[@X0Fy@X07/@X0Fn@X08] @X07_", STRING028, 0, 39, "yYnN", 4 + 8
  132.                     If (STRING028 == "") Goto LABEL004
  133.                     If (STRING028 == "Y") Goto LABEL004
  134.                     If (STRING028 == "y") Goto LABEL004
  135.                     Goto LABEL001
  136.                     Goto LABEL002
  137.                     Goto LABEL003
  138.                 Endif
  139.                 If (INT001 == 2) Then
  140.                     STRING027 = ReadLine(PCBDat(), 94)
  141.                     InputStr "@X07Is @X0F" + STRING027 + " @X07your BBS@X0F? @X08[@X0Fy@X07/@X0Fn@X08] @X07_", STRING028, 0, 39, "yYnN", 4 + 8
  142.                     If (STRING028 == "") Goto LABEL004
  143.                     If (STRING028 == "Y") Goto LABEL004
  144.                     If (STRING028 == "y") Goto LABEL004
  145.                     Goto LABEL002
  146.                     Goto LABEL003
  147.                 Endif
  148.                 If (INT001 == 4) Then
  149.                     PrintLn "@CLS@@X0F     __:                      :_         :_       :_     :____"
  150.                     PrintLn "@X0F    /  |______ _______________| \ _______| \ _____| \   _|    \_____________"
  151.                     PrintLn "@X0F   /          \        __     |_ \          \       /  /         __         \"
  152.                     PrintLn "@X0F  /     _ ____/  .     \/       _/_     \___/  ____/  /    |     \/    .     \"
  153.                     PrintLn "@X0F /      ___/     |\     \_  .|     \    /   \   _\_/\ \____|      \    |\     \"
  154.                     PrintLn "@X0F \        \_     |     _/____|      \      _/    /   \   /         \   |     _/"
  155.                     PrintLn "@X0F  \_______/ \_________/     \_______/_____/\_________/   \_________/________/"
  156.                     PrintLn "@X0F                                                                       aB"
  157.                     PrintLn "@X0F       :__      :__        :_           :____        :__         :_         :_"
  158.                     PrintLn "@X0F  _____|  \ ____|. \_______| \ _______ _|    \_______|. \________| \ _______| \"
  159.                     PrintLn "@X0F /         \_   |    __    |_ \       /          _   |    __        \         /"
  160.                     PrintLn "@X0F/      |___/    _/   \/      _/_    ./    |     \/   _/   \/    |___/_   ____/"
  161.                     PrintLn "@X0F\____:    \     |     \_        \_  |\____|     /    |     \    :     \_  _\_/\"
  162.                     PrintLn "@X0F \_  |    /\____|      /_|   -    \ |   /       \____|      \____|      \  /   \   \_____/     \______/  |________/_____\_______/   \_______/   \_______/______/          «<node 1: eight∙one∙eight≈nine∙five∙two≈five∙one∙one∙three>»"
  163.                     PrintLn "@X0F            @X07«<node 2: testing with usr courier i-modem isdn / v34+>»"
  164.                     PrintLn "@X07             «<using usr courier v.34+/v.fc ∙ usr courier i-modem>»"
  165.                     PrintLn "@X07               «<knd site  +  hst site  +  sc site  +  nva site>»"
  166.                     PrintLn "@X07                   @X08«<running win95 optimized for full speed>»"
  167.                     PrintLn "@X08                   «<sysop: spectrum> <cosys: night crawler>»"
  168.                     PrintLn "@X08                            «<no nup : invite only>»@X07"
  169.                     Wait
  170.                     Cls
  171.                     Goto LABEL001
  172.                     Goto LABEL002
  173.                     Goto LABEL003
  174.                 Endif
  175.                 If (INT001 == 5) Then
  176.                     Cls
  177.                     AnsiPos 0, 0
  178.                     Print "@X0Fc"
  179.                     Delay 1
  180.                     AnsiPos 0, 0
  181.                     Print "@X07c@X0Fo"
  182.                     Delay 1
  183.                     AnsiPos 0, 0
  184.                     Print "@X07co@X0Fd"
  185.                     Delay 1
  186.                     AnsiPos 0, 0
  187.                     Print "@X07cod@X0Fe"
  188.                     Delay 1
  189.                     AnsiPos 0, 0
  190.                     Print "@X07code@X0Fd"
  191.                     Delay 1
  192.                     AnsiPos 0, 0
  193.                     Print "@X07coded @X0F"
  194.                     Delay 1
  195.                     AnsiPos 0, 0
  196.                     Print "@X07coded @X0Fb"
  197.                     Delay 1
  198.                     AnsiPos 0, 0
  199.                     Print "@X07coded b@X0Fy"
  200.                     Delay 1
  201.                     AnsiPos 0, 0
  202.                     Print "@X07coded by "
  203.                     Delay 1
  204.                     AnsiPos 0, 0
  205.                     Print "@X07coded by @X0Fs"
  206.                     Delay 1
  207.                     AnsiPos 0, 0
  208.                     Print "@X07coded by s@X0Fp"
  209.                     Delay 1
  210.                     AnsiPos 0, 0
  211.                     Print "@X07coded by sp@X0Fe"
  212.                     Delay 1
  213.                     AnsiPos 0, 0
  214.                     Print "@X07coded by spe@X0Fc"
  215.                     Delay 1
  216.                     AnsiPos 0, 0
  217.                     Print "@X07coded by spec@X0Ft"
  218.                     Delay 1
  219.                     AnsiPos 0, 0
  220.                     Print "@X07coded by spect@X0Fr"
  221.                     Delay 1
  222.                     AnsiPos 0, 0
  223.                     Print "@X07coded by spectr@X0Fu"
  224.                     Delay 1
  225.                     AnsiPos 0, 0
  226.                     Print "@X07coded by spectru@X0Fm"
  227.                     Delay 1
  228.                     AnsiPos 0, 0
  229.                     Print "@X07coded by spectrum"
  230.                     PrintLn ""
  231.                     PrintLn ""
  232.                     Wait
  233.                     End
  234.                     Goto LABEL002
  235.                 Endif
  236.                 :LABEL003
  237.                 Continue
  238.             Endif
  239.             If (STRING002 == Chr(27)) Then
  240.                 Break
  241.             Endif
  242.         Endif
  243.     EndWhile
  244.     End
  245.     :LABEL004
  246.     INTEGER001 = 36
  247.     STRING006 = 154736
  248.     STRING007 = 245647
  249.     STRING008 = 336558
  250.     STRING009 = 427469
  251.     STRING010 = 518378
  252.     STRING011 = 629287
  253.     STRING012 = 738196
  254.     STRING013 = 847285
  255.     STRING014 = 956374
  256.     STRING015 = 865463
  257.     STRING016 = 774552
  258.     STRING017 = 683641
  259.     STRING018 = 592732
  260.     STRING019 = 481823
  261.     STRING020 = 372914
  262.     STRING021 = 263825
  263.     STRING022 = 154736
  264.     STRING023 = 245647
  265.     STRING024 = 343234
  266.     STRING025 = 469427
  267.     STRING026 = 550023
  268.     STRING001 = 148602
  269.     STRING029 = STRING027
  270.     STRING029 = RTrim(STRING029, " ")
  271.     INTEGER022 = 1
  272.     INTEGER022 = RTrim(INTEGER022, " ")
  273.     STRING029 = Upper(STRING029)
  274.     STRING004 = Crc32(0, STRING029)
  275.     STRING004 = Right(STRING004, 7)
  276.     STRING004 = Strip(STRING004, "0")
  277.     INTEGER023 = STRING004
  278.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING006
  279.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  280.     STRING004 = INTEGER024
  281.     STRING004 = Strip(STRING004, "0")
  282.     STRING005 = INTEGER025
  283.     STRING005 = Strip(STRING005, "0")
  284.     INTEGER025 = STRING005
  285.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING007
  286.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  287.     STRING004 = INTEGER024
  288.     STRING004 = Strip(STRING004, "0")
  289.     STRING005 = INTEGER025
  290.     STRING005 = Strip(STRING005, "0")
  291.     INTEGER002 = STRING005
  292.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING008
  293.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  294.     STRING004 = INTEGER024
  295.     STRING004 = Strip(STRING004, "0")
  296.     STRING005 = INTEGER025
  297.     STRING005 = Strip(STRING005, "0")
  298.     INTEGER003 = STRING005
  299.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING009
  300.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  301.     STRING004 = INTEGER024
  302.     STRING004 = Strip(STRING004, "0")
  303.     STRING005 = INTEGER025
  304.     STRING005 = Strip(STRING005, "0")
  305.     INTEGER004 = STRING005
  306.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING010
  307.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  308.     STRING004 = INTEGER024
  309.     STRING004 = Strip(STRING004, "0")
  310.     STRING005 = INTEGER025
  311.     STRING005 = Strip(STRING005, "0")
  312.     INTEGER005 = STRING005
  313.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING011
  314.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  315.     STRING004 = INTEGER024
  316.     STRING004 = Strip(STRING004, "0")
  317.     STRING005 = INTEGER025
  318.     STRING005 = Strip(STRING005, "0")
  319.     INTEGER006 = STRING005
  320.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING012
  321.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  322.     STRING004 = INTEGER024
  323.     STRING004 = Strip(STRING004, "0")
  324.     STRING005 = INTEGER025
  325.     STRING005 = Strip(STRING005, "0")
  326.     INTEGER007 = STRING005
  327.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING013
  328.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  329.     STRING004 = INTEGER024
  330.     STRING004 = Strip(STRING004, "0")
  331.     STRING005 = INTEGER025
  332.     STRING005 = Strip(STRING005, "0")
  333.     INTEGER008 = STRING005
  334.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING014
  335.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  336.     STRING004 = INTEGER024
  337.     STRING004 = Strip(STRING004, "0")
  338.     STRING005 = INTEGER025
  339.     STRING005 = Strip(STRING005, "0")
  340.     INTEGER009 = STRING005
  341.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING015
  342.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  343.     STRING004 = INTEGER024
  344.     STRING004 = Strip(STRING004, "0")
  345.     STRING005 = INTEGER025
  346.     STRING005 = Strip(STRING005, "0")
  347.     INTEGER010 = STRING005
  348.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING016
  349.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  350.     STRING004 = INTEGER024
  351.     STRING004 = Strip(STRING004, "0")
  352.     STRING005 = INTEGER025
  353.     STRING005 = Strip(STRING005, "0")
  354.     INTEGER011 = STRING005
  355.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING017
  356.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  357.     STRING004 = INTEGER024
  358.     STRING004 = Strip(STRING004, "0")
  359.     STRING005 = INTEGER025
  360.     STRING005 = Strip(STRING005, "0")
  361.     INTEGER012 = STRING005
  362.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING018
  363.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  364.     STRING004 = INTEGER024
  365.     STRING004 = Strip(STRING004, "0")
  366.     STRING005 = INTEGER025
  367.     STRING005 = Strip(STRING005, "0")
  368.     INTEGER013 = STRING005
  369.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING019
  370.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  371.     STRING004 = INTEGER024
  372.     STRING004 = Strip(STRING004, "0")
  373.     STRING005 = INTEGER025
  374.     STRING005 = Strip(STRING005, "0")
  375.     INTEGER014 = STRING005
  376.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING020
  377.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  378.     STRING004 = INTEGER024
  379.     STRING004 = Strip(STRING004, "0")
  380.     STRING005 = INTEGER025
  381.     STRING005 = Strip(STRING005, "0")
  382.     INTEGER015 = STRING005
  383.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING021
  384.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  385.     STRING004 = INTEGER024
  386.     STRING004 = Strip(STRING004, "0")
  387.     STRING005 = INTEGER025
  388.     STRING005 = Strip(STRING005, "0")
  389.     INTEGER016 = STRING005
  390.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING022
  391.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  392.     STRING004 = INTEGER024
  393.     STRING004 = Strip(STRING004, "0")
  394.     STRING005 = INTEGER025
  395.     STRING005 = Strip(STRING005, "0")
  396.     INTEGER017 = STRING005
  397.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING023
  398.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  399.     STRING004 = INTEGER024
  400.     STRING004 = Strip(STRING004, "0")
  401.     STRING005 = INTEGER025
  402.     STRING005 = Strip(STRING005, "0")
  403.     INTEGER018 = STRING005
  404.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING024
  405.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  406.     STRING004 = INTEGER024
  407.     STRING004 = Strip(STRING004, "0")
  408.     STRING005 = INTEGER025
  409.     STRING005 = Strip(STRING005, "0")
  410.     INTEGER019 = STRING005
  411.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING025
  412.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  413.     STRING004 = INTEGER024
  414.     STRING004 = Strip(STRING004, "0")
  415.     STRING005 = INTEGER025
  416.     STRING005 = Strip(STRING005, "0")
  417.     INTEGER020 = STRING005
  418.     INTEGER024 = INTEGER023 + INTEGER022 * 1957 + STRING026
  419.     INTEGER025 = INTEGER023 + INTEGER022 * 1957 + STRING001
  420.     STRING004 = INTEGER024
  421.     STRING004 = Strip(STRING004, "0")
  422.     STRING005 = INTEGER025
  423.     STRING005 = Strip(STRING005, "0")
  424.     INTEGER021 = STRING005
  425.     Cls
  426.     PrintLn "@X0F           @X08┌─────────────────────────────────────────────────────┐"
  427.     PrintLn "@X08           │  @X0FYour Personal Registration Codes/Validation Codes  @X08│"
  428.     PrintLn "@X08           ├────────┬────────┬────────┬────────┬────────┬────────┤"
  429.     PrintLn "@X08           │@X0FPPE Name@X08│ @X0FReg #  @X08│ @X0FVal #  @X08│@X0FPPE Name@X08│ @X0FReg #  @X08│ @X0FVal #  @X08│"
  430.     PrintLn "@X08           ├────────┼────────┼────────┼────────┼────────┼────────┤"
  431.     PrintLn "@X08           │@X0FSUBSCRIP@X08│ 00001  │        │@X0FUSERNEWS@X08│ 00001  │        │"
  432.     PrintLn "@X08           │@X0FFONE-VER@X08│ 00001  │        │@X0FMSGQUEST@X08│ 00001  │        │"
  433.     PrintLn "@X08           │@X0FPRO-VOTE@X08│ 00001  │        │@X0FBIRTHDAY@X08│ 00001  │        │"
  434.     PrintLn "@X08           │@X0FCONFMENU@X08│ 00001  │        │@X0FHOWHEARD@X08│ 00001  │        │"
  435.     PrintLn "@X08           │@X0FFILEMENU@X08│ 00001  │        │@X0FWELCOMAT@X08│ 00001  │        │"
  436.     PrintLn "@X08           │@X0FMAINMENU@X08│ 00001  │        │@X0FPAGE-ME!@X08│ 00001  │        │"
  437.     PrintLn "@X08           │@X0FDOORMENU@X08│ 00001  │        │@X0FINTELEC @X08│ 00001  │        │"
  438.     PrintLn "@X08           │@X0FAUTOPOST@X08│ 00001  │        │@X0FBLT-MENU@X08│ 00001  │        │"
  439.     PrintLn "@X08           │@X0FBBSLISTR@X08│ 00001  │        │@X0FWHOSHERE@X08│ 00001  │        │"
  440.     PrintLn "@X08           │@X0FREMINDME@X08│ 00001  │        │@X0FDTSEARCH@X08│ 00001  │        │"
  441.     PrintLn "@X08           │@X0FTIMEZONE@X08│ 00001  │        │        │        │        │"
  442.     PrintLn "@X08           └────────┴────────┴────────┴────────┴────────┴────────┘@X07"
  443.     AnsiPos 32, 6
  444.     Print INTEGER025
  445.     AnsiPos 32, 7
  446.     Print INTEGER002
  447.     AnsiPos 32, 8
  448.     Print INTEGER003
  449.     AnsiPos 32, 9
  450.     Print INTEGER004
  451.     AnsiPos 32, 10
  452.     Print INTEGER005
  453.     AnsiPos 32, 11
  454.     Print INTEGER006
  455.     AnsiPos 32, 12
  456.     Print INTEGER007
  457.     AnsiPos 32, 13
  458.     Print INTEGER008
  459.     AnsiPos 32, 14
  460.     Print INTEGER009
  461.     AnsiPos 32, 15
  462.     Print INTEGER010
  463.     AnsiPos 32, 16
  464.     Print INTEGER011
  465.     AnsiPos 59, 6
  466.     Print INTEGER012
  467.     AnsiPos 59, 7
  468.     Print INTEGER013
  469.     AnsiPos 59, 8
  470.     Print INTEGER014
  471.     AnsiPos 59, 9
  472.     Print INTEGER015
  473.     AnsiPos 59, 10
  474.     Print INTEGER016
  475.     AnsiPos 59, 11
  476.     Print INTEGER017
  477.     AnsiPos 59, 12
  478.     Print INTEGER018
  479.     AnsiPos 59, 13
  480.     Print INTEGER019
  481.     AnsiPos 59, 14
  482.     Print INTEGER020
  483.     AnsiPos 59, 15
  484.     Print INTEGER021
  485.     AnsiPos 0, 23
  486.     Wait
  487.     Goto LABEL001
  488.     End
  489.  
  490. ;------------------------------------------------------------------------------
  491.  
  492.     Procedure PROC005(Integer INTEGER026)
  493.  
  494.     AnsiPos 22, 11 + INTEGER026 - 1
  495.     STRING003 = ScrText(22, 11 + INTEGER026 - 1, 36, 1)
  496.     Print "@X4F", ScrText(22, 11 + INTEGER026 - 1, 36, 0)
  497.     PROC007()
  498.  
  499.     EndProc
  500.  
  501.  
  502. ;------------------------------------------------------------------------------
  503.  
  504.     Procedure PROC006(Integer INTEGER027)
  505.  
  506.     AnsiPos 22, 11 + INTEGER027 - 1
  507.     Print "@X0F", STRING003
  508.     PROC007()
  509.  
  510.     EndProc
  511.  
  512.  
  513. ;------------------------------------------------------------------------------
  514.  
  515.     Procedure PROC007()
  516.  
  517.     AnsiPos 1, 22
  518.     Color 0
  519.     Print " "
  520.     Backup 1
  521.  
  522.     EndProc
  523.  
  524.  
  525. ;------------------------------------------------------------------------------
  526. ;
  527. ; Usage report (before postprocessing)
  528. ;
  529. ; ■ Statements used :
  530. ;
  531. ;    3       End
  532. ;    4       Cls
  533. ;    3       Wait
  534. ;    1       Color 
  535. ;    31      Goto 
  536. ;    189     Let 
  537. ;    43      Print 
  538. ;    60      PrintLn 
  539. ;    20      If 
  540. ;    1       StartDisp 
  541. ;    3       InputStr 
  542. ;    17      Delay 
  543. ;    44      AnsiPos 
  544. ;    1       Backup 
  545. ;    3       EndProc
  546. ;
  547. ;
  548. ; ■ Functions used :
  549. ;
  550. ;    42      *
  551. ;    93      +
  552. ;    5       -
  553. ;    18      ==
  554. ;    1       <>
  555. ;    10      !
  556. ;    1       Upper()
  557. ;    1       Right()
  558. ;    2       Chr()
  559. ;    2       RTrim()
  560. ;    43      Strip()
  561. ;    1       Inkey()
  562. ;    1       PCBDat()
  563. ;    1       ReadLine()
  564. ;    2       ScrText()
  565. ;    1       Crc32()
  566. ;
  567. ;------------------------------------------------------------------------------
  568. ;
  569. ; Analysis flags : d
  570. ;
  571. ; d - Access PCBOARD.DAT ■ 2
  572. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  573. ;     for many PPE so they can find various informations on the system
  574. ;     (system paths, max number of lines in messages, ...) but it may also
  575. ;     be a way to gather vital informations.
  576. ;     ■ Search for : PCBDAT()
  577. ;
  578. ;------------------------------------------------------------------------------
  579. ;
  580. ; Postprocessing report
  581. ;
  582. ;    0       For/Next
  583. ;    1       While/EndWhile
  584. ;    9       If/Then or If/Then/Else
  585. ;    0       Select Case
  586. ;
  587. ;------------------------------------------------------------------------------
  588. ;                 AEGiS Corp - Break the routines, code against the machines!
  589. ;------------------------------------------------------------------------------
  590.